home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / DL4FBI / SETPAR.BAS < prev   
BASIC Source File  |  1997-03-17  |  4KB  |  108 lines
  1. 'Dialog for setting parameters in BEACON.PAR
  2. DIM SHARED cals(18) AS STRING, qth(18) AS STRING
  3. DIM SHARED qrg(5) AS STRING, kom(10) AS STRING
  4. OPEN "C:\BEACON.PAR" FOR INPUT AS #1
  5. FOR i = 1 TO 18: INPUT #1, cals(i), qth(i): NEXT i
  6. FOR i = 1 TO 5: INPUT #1, qrg(i): NEXT i
  7. FOR i = 1 TO 10: INPUT #1, kom(i): NEXT i
  8. CLOSE 1
  9. 10 DO
  10. CLS : PRINT ; "   This is the list of callsigns and locations on BEACON.PAR"
  11. PRINT
  12. FOR i = 1 TO 9
  13. s1$ = "   " + STR$(i) + ") " + cals(i) + "  " + qth(i)
  14. s2$ = "   " + STR$(i + 9) + ") " + cals(i + 9) + "  " + qth(i + 9)
  15. PRINT ; s1$; TAB(40); s2$
  16. NEXT i
  17. PRINT : PRINT : PRINT
  18. PRINT ; "   Type number of item that you want to change"
  19. PRINT ; "   Type 00 in order to leave <callsigns and location>": PRINT
  20. INPUT "01 to 18 or 00"; a%
  21. IF a% = 0 THEN EXIT DO
  22. INPUT "CALLSIGN"; c$: IF LEN(c$) < 6 THEN c$ = c$ + STRING$(6 - LEN(c$), " ")
  23. cals(a%) = c$: PRINT : PRINT
  24. INPUT "LOCATION"; l$: IF LEN(l$) < 14 THEN l$ = l$ + STRING$(14 - LEN(l$), " ")
  25. qth(a%) = l$
  26. LOOP
  27. DO
  28. CLS : PRINT : PRINT
  29. PRINT ; "   List of beacon-frequencies in Hz (8 integers!!)": PRINT : PRINT
  30. FOR i = 1 TO 5
  31. s$ = "   " + STR$(i) + ") " + qrg(i): PRINT ; s$: NEXT i: PRINT : PRINT
  32. PRINT ; "   Type number of item that you want to change"
  33. PRINT ; "   Type 00 in order to leave <frequencies>": PRINT
  34. INPUT "01 to 05 or 00"; a%
  35. IF a% = 0 THEN EXIT DO
  36. INPUT "FREQUENCY"; f$
  37. IF LEN(f$) <> 8 THEN
  38. PRINT ; " wrong format, do again, press any key"
  39. WHILE INKEY$ = "": WEND
  40. END IF
  41. qrg(a%) = f$
  42. LOOP
  43. DO
  44. CLS : PRINT : PRINT
  45. PRINT ; "   Installationparameters for computer and TS 870": PRINT : PRINT
  46. PRINT ; "   Serial port is COM"; kom(1); "  type 1 for COM1 or 2 for COM2"
  47. INPUT " 1 or 2"; a%: kom(1) = STR$(a%)
  48. PRINT ; "   Antenna is No."; kom(2); "  type 1 or 2"
  49. INPUT " 1 or 2"; a%: kom(2) = STR$(a%)
  50. PRINT ; "   Filter-Bandwidth is"; kom(3), "Hz;";
  51. PRINT ; "   type 050/100/200/600  (050 is recommended)"
  52. INPUT " 050......."; kom(3)
  53. IF LEN(kom(3)) <> 3 THEN
  54. PRINT ; "wrong format, do again, press any key"
  55. WHILE INKEY$ = "": WEND
  56. END IF
  57. PRINT ; "   to leave <installationparameters> type 00 else 01"
  58. INPUT "00 or 01"; in$
  59. IF in$ = "00" THEN EXIT DO
  60. LOOP
  61. DO
  62. CLS
  63. PRINT ; "   Results are only displayed on screen /type 1": PRINT
  64. PRINT ; "   Hardcopy on LPT1 and screen /type 2": PRINT
  65. PRINT ; "   ASCII-file A:\BEACON.TXT and screen /type 3": PRINT
  66. PRINT ; "   Hardcopy and ASCII-file and screen /type 4": PRINT
  67. INPUT " 1 t0 4"; kom(4)
  68. IF kom(4) = "1" OR kom(4) = "2" OR kom(4) = "3" OR kom(4) = "4" THEN
  69. EXIT DO
  70. END IF
  71. PRINT ; "wrong format, again, press any key"
  72. WHILE INKEY$ = "": WEND
  73. LOOP
  74. DO
  75. CLS
  76. PRINT ; "    The; computers'seconds-counter has to be synchronized by UTC or"
  77. PRINT ; "    local time. There exist three options:": PRINT
  78. PRINT ; "    1)The computer is equiped with a DCF-time signals receiver"
  79. PRINT ; "    and the appropriate software and you are in Europe": PRINT
  80. PRINT ; "    2) GPS or another time-correction method is available and you"
  81. PRINT ; "    have added an appropriate subprogram MYTIMESET to BEACONS.BAS": PRINT
  82. PRINT ; "    3) Time is set  manually by listening to time-signals"
  83. PRINT ; "    from telephone or radio": PRINT : PRINT
  84. INPUT "1 or 2 or 3"; t$
  85. kom(5) = t$
  86. IF t$ = "1" OR t$ = "2" OR t$ = "3" THEN EXIT DO
  87. LOOP
  88. DO
  89. CLS : PRINT : PRINT
  90. PRINT ; "The complete dataset is now in the memory of your PC. You can"
  91. PRINT ; "run this setup again for corrections or just for checking (R)"
  92. PRINT ; "or save it to C:\BEACON.PAR (S)"
  93. INPUT " R or S"; k$: k$ = UCASE$(k$)
  94. IF k$ = "R" OR k$ = "S" THEN EXIT DO
  95. PRINT ; "wrong format, do again"
  96. LOOP
  97. IF k$ = "R" THEN GOTO 10
  98. IF k$ = "S" THEN
  99. OPEN "C:\BEACON.PAR" FOR OUTPUT AS #2
  100. FOR i = 1 TO 18: WRITE #2, cals(i), qth(i): NEXT i
  101. FOR i = 1 TO 5: WRITE #2, qrg(i): NEXT i
  102. FOR i = 1 TO 10: WRITE #2, kom(i): NEXT i
  103. END IF
  104. CLOSE 2
  105.  
  106. 'Author: Helmut Zürneck, DL4FBI, Ritterstrasse 26, 64807 Dieburg, Germany
  107.  
  108.